home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
CRS
/
crs20.d81
/
footprnt.prg
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2009-10-10
|
3KB
|
83 lines
2 REM * FOOTPRINTS *
4 REM * BY DAN RICHARDS *
10 PRINT"[147]"
15 POKE53280,0:POKE53281,6
20 V=53248
25 POKEV+21,0
30 POKE2040,192:POKE2041,193
35 POKE2042,194:POKE2043,195
40 POKE2044,196:POKE2045,197
43 GOSUB1000
45 FORQ=0TO5
50 FORS=0TO62
55 READA
60 POKE(192+Q)*64+S,A
65 NEXTS
70 NEXTQ
75 POKEV+39,1:POKEV+40,1
80 POKEV+41,1:POKEV+42,1
85 POKEV+43,1:POKEV+44,1
90 POKEV+21,3
91 PRINT"[147]":FORW=1TO2000:NEXTW
93 FORX=245TO35STEP-30
95 POKEV+2,230:POKEV+3,X
100 FORW=1TO200:NEXTW
105 POKEV,250:POKEV+1,X-15
110 FORW=1TO200:NEXTW
115 NEXTX
235 POKEV+2,230:POKEV+3,35
245 POKEV,1:POKEV+1,1
255 POKEV+2,1:POKEV+3,1
260 FORW=1TO200:NEXTW
265 POKEV+21,12
268 FORX=5TO155STEP30
270 POKEV+4,100:POKEV+5,X
275 FORW=1TO200:NEXTW
280 POKEV+6,80:POKEV+7,X+15
285 FORW=1TO200:NEXTW
385 NEXTX
390 POKEV+4,100:POKEV+5,185
395 FORW=1TO200:NEXTW
400 POKEV+6,80:POKEV+7,200
405 POKEV+8,75:POKEV+9,229
410 POKEV+10,110:POKEV+11,229
415 POKEV+21,60
420 FORW=1TO400:NEXTW
425 POKEV,100:POKEV+1,185
430 POKEV+2,80:POKEV+3,200
435 POKEV+21,51
440 POKEV+4,1:POKEV+5,1
445 POKEV+6,1:POKEV+7,1
448 FORX=170TO20STEP-30
450 POKEV,100:POKEV+1,X
455 FORW=1TO20:NEXTW
460 POKEV+2,80:POKEV+3,X-15
465 FORW=1TO20:NEXTW
568 NEXTX
570 POKEV,1:POKEV+1,1
575 FORW=1TO20:NEXTW
580 POKEV+2,1:POKEV+3,1
585 FORW=1TO1000:NEXTW
588 END
590 DATA 0,0,0,0,0,0,0,0,0,0,212,0,0,213,0,0,1,64,0,254,64,0,255,128,0,255,128
595 DATA 0,127,0,0,62,0,0,60,0,0,60,0,0,60,0,0,124,0,0,252,0,0,252,0,0,248,0
600 DATA 0,112,0,0,0,0,0,0,0
605 DATA 0,0,0,0,0,0,0,0,0,0,43,0,0,171,0,2,128,0,2,127,0,1,255,0,1,255,0
610 DATA 0,254,0,0,124,0,0,60,0,0,60,0,0,60,0,0,62,0,0,63,0,0,63,0,0,31,0
615 DATA 0,14,0,0,0,0,0,0,0
620 DATA 0,0,0,0,0,0,0,112,0,0,248,0,0,252,0,0,252,0,0,124,0,0,60,0,0,60,0
625 DATA 0,60,0,0,62,0,0,127,0,0,255,128,0,255,128,0,254,64,0,1,64,0,213,0
630 DATA 0,212,0,0,0,0,0,0,0,0,0,0
635 DATA 0,0,0,0,0,0,0,14,0,0,31,0,0,63,0,0,63,0,0,62,0,0,60,0,0,60,0,0,60,0
640 DATA 0,124,0,0,254,0,1,255,0,1,255,0,2,127,0,2,128,0,0,171,0,0,43,0,0,0,0
645 DATA 0,0,0,0,0,0
650 DATA 0,0,0,0,0,0,1,129,128,3,195,192,7,231,224,39,231,228,115,195,206
655 DATA 248,0,31,248,255,31,113,255,142,3,255,192,7,255,224,7,255,224
660 DATA 7,255,224,3,255,192,1,255,128,0,255,0,0,0,0,0,0,0,0,0,0,0,0,0
665 DATA 0,0,0,0,0,0,1,129,128,3,195,192,7,231,224,39,231,228,115,195,206
670 DATA 248,0,31,248,255,31,113,255,142,3,255,192,7,255,224,7,255,224
675 DATA 7,255,224,3,255,192,1,255,128,0,255,0,0,0,0,0,0,0,0,0,0,0,0,0
1000 PRINTTAB(15)"FOOTPRINTS[146]"
1010 PRINT:PRINT:PRINTTAB(13)"PLEASE WAIT..."
1050 RETURN